home *** CD-ROM | disk | FTP | other *** search
/ Net Connect / NetConnect - Version 1.iso / amitcp / providers / ger_t-online < prev    next >
Encoding:
Text File  |  1996-11-29  |  2.1 KB  |  94 lines
  1. /* Provider Configuration Follows:
  2. Name      GER_T-Online   ; Name for this configuration
  3. DialUp         1         ; This is a DialUp configuration
  4. Interface      slip      ; Also supports cslip
  5. NeedSerial     1         ; This configuration needs serial device
  6. IPDynamic      1         ; 1 = YES, 0 = NO
  7. IPAddr                   ; IP-address if static
  8. NSDynamic      1         ; 1 = YES, 0 = NO
  9. UseBootP       0         ; 1 = YES, 0 = NO
  10. MTU            1006      ; Provider specific
  11. Phone                    ; Provider phone number (without spaces) Telefonnummer Ihres BTX-Zugangs
  12. HdrCompress    YES       ; YES|NO|AUTO
  13. */
  14.  
  15. /*
  16.  *   $Id: GER_T-Online,v 1.1 1996/05/13 18:01:17 ppessi Exp $
  17.  *
  18.  *   AmiTCP/IP Dial Script for Telecom Germany T-Online
  19.  *   Angepasst von Jens Wucherpfennig fuer Village Tronic
  20.  *
  21.  *   Copyright © 1996 AmiTCP/IP Group,
  22.  *                    Network Solutions Development Inc.
  23.  *                    All rights reserved.
  24.  *
  25.  */
  26.  
  27. options results
  28. signal on error
  29.  
  30. /*
  31.  * Personal variables, please adjust!
  32.  * Tragen Sie zwischen den Anfuehrungszeichen Ihre persoenlichen Daten ein!
  33.  */
  34. btx_kennung = ""        /* Ihre Anschlußkennung (12-stellig) */
  35. btx_nummer = ""         /* Ihre Mitbenutzer-Nummer (4-stellig) */
  36. btx_passwort = ""       /* Ihr Passwort */
  37.  
  38.  
  39. Set WaitForTimeout 60
  40. Set InterCharDelay 100
  41.  
  42. ShowConsole
  43. CALL CommandState
  44. CALL Dial
  45.  
  46. /*
  47.  * The T-Online login sequence
  48.  * SendLn sends the string + \r
  49.  */
  50. Pause 2
  51. SendLn "."
  52.  
  53. WaitFor "kennung:"
  54. Send btx_kennung
  55.  
  56. WaitFor "Datex-J-Nummer:"
  57. Send btx_nummer
  58.  
  59. WaitFor "Kennwort:"
  60. SendLn btx_passwort
  61.  
  62. WaitFor "Anwendung#"
  63. Send "*53#"
  64.  
  65. WaitFor "geschaltet"
  66. Send "*190144100#"
  67.  
  68. WaitFor "ER-Verb."
  69. Send "19"
  70.  
  71. WaitFor "STATUS OK" 
  72. SendLn "AMI"
  73.  
  74. /*
  75.  * Now get the configuration information
  76.  * ParseAddrAfter finds an IP address from last WaitFor processed input
  77.  * After the specified prefix.
  78.  */
  79. WaitFor "DONTREG"             /* This comes last */
  80. ParseAddrAfter "YOURIP"
  81. Set IPAddr result
  82. ParseAddrAfter "DESTIP"
  83. Set Dest result
  84. ParseAddrAfter "DNS"
  85. Set NS1 result
  86.  
  87. SendLn "OK"
  88.  
  89. exit 0;                  /* succesfull exit */
  90.  
  91. error:
  92. Say "GER_T-Online: Command on line" SIGL "returned" RC ":" SerScript.LASTERROR
  93. Exit 10
  94.